home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / graphics / qpeg11c.zip / GENOA.ASM < prev    next >
Assembly Source File  |  1993-10-14  |  544b  |  34 lines
  1. ;
  2. ; QPEG video driver
  3. ; for Genoa 6100, 6200, 6300, 6400, 6600
  4. ;
  5.  
  6.         .286
  7. Code    Segment Para 'Code'
  8.         Assume  cs:Code
  9.         Org 100h
  10.  
  11. Procs   dw      Bank,Init,Exit,0
  12.  
  13. Bank:   mov     dl,al
  14.         shl     al,3
  15.         or      al,dl
  16.         or      al,40h
  17.         push    ax
  18.         mov     al,06h
  19.         mov     dx,03c4h
  20.         out     dx,al
  21.         pop     ax
  22.         inc     dx
  23.         out     dx,al
  24.         retf
  25.  
  26. Init:   retf
  27.  
  28. Exit:   retf
  29.  
  30. Code    Ends
  31.         End Procs
  32.  
  33. ; End of source.
  34.